home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / m.mr demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  7.6 KB  |  200 lines
  1. 10 poke51,255:poke52,127:poke55,255:poke56,127:clr
  2. 20 poke53280,11:sys49288,0,5,13,2:sys49936:sys49888:sys50704
  3. 30 fora=20to0step-1:sys49936:sys50416,20,16-a*4,0,a,8,1:next
  4. 40 sys50176
  5. 50 fora=20to0step-1:sys50216:sys50416,28,16-a*4,0,a,5,1:next
  6. 60 sys50176
  7. 70 fora=20to0step-1:sys50216:sys50416,36,16-a*4,0,a,12,1:next
  8. 80 sys50176
  9. 90 fora=20to0step-1:sys50216:sys50416,44,16-a*4,0,a,12,1:next
  10. 100 sys50176
  11. 110 fora=20to0step-1:sys50216:sys50416,52,16-a*4,0,a,15,1:next
  12. 120 sys50176
  13. 130 fora=20to0step-1:sys50216:sys50416,20,24-a*4,0,a,20,2:next
  14. 140 sys50176
  15. 150 fora=20to0step-1:sys50216:sys50416,28,24-a*4,0,a,8,2:next
  16. 160 sys50176
  17. 170 fora=20to0step-1:sys50216:sys50416,36,24-a*4,0,a,5,2:next
  18. 180 sys50176
  19. 190 fora=20to0step-1:sys50216:sys50416,44,24-a*4,0,a,18,2:next
  20. 200 sys50176
  21. 210 fora=20to0step-1:sys50216:sys50416,52,24-a*4,0,a,5,2:next
  22. 220 sys50176
  23. 230 fora=-3to16:sys49960,a,a-2,79-a*2,50-a*2,3:next
  24. 240 fora=-3to15:sys49960,a,a-2,79-a*2,50-a*2,0:next:gosub5000
  25. 250 fora=14to24:sys49960,0,a,79,0,0:sys49960,0,49-a,79,0,0:next
  26. 260 sys49288,0,7,10,2:sys50736:sys50720
  27. 270 fora=9to0step-1:sys49936:sys50416,35-a*4,24-a*4,a,a,48+a,1:sys50176
  28. 280 forb=1to1500:next:next
  29. 300 fora=-95to80step5:sys49936:sys49960,a+4,20,16,0,1
  30. 301 sys49960,a+3,21,17,0,2
  31. 302 sys49960,a+2,22,18,0,1
  32. 303 sys49960,a+1,23,19,0,2
  33. 304 sys49960,a+0,24,20,0,1
  34. 305 sys49960,a+1,25,19,0,2
  35. 306 sys49960,a+2,26,18,0,1
  36. 307 sys49960,a+3,27,17,0,2
  37. 308 sys49960,a+4,28,16,0,1
  38. 309 sys49960,a+20,20,3,8,2:sys49960,a+23,19,65,10,3
  39. 310 sys50416,a+24,21,0,0,2,2
  40. 311 sys50416,a+32,21,0,0,12,2
  41. 312 sys50416,a+40,21,0,0,1,2
  42. 313 sys50416,a+48,21,0,0,19,2
  43. 314 sys50416,a+56,21,0,0,20,2
  44. 315 sys50416,a+64,21,0,0,15,2
  45. 316 sys50416,a+72,21,0,0,6,2
  46. 317 sys50416,a+80,21,0,0,6,2
  47. 318 sys49960,a+89,19,0,10,2
  48. 319 sys49960,a+90,20,0,8,2
  49. 320 sys49960,a+91,21,0,6,2
  50. 321 sys49960,a+92,22,0,4,2:sys49960,a+93,23,0,2,2:sys50176:next:poke198,0
  51. 330 sys49936:fora=1to3000:next:sys50704:sys49288,0,10,4,3
  52. 335 fora=0to24:sys49960,a,a-2,79-a*2,49-a*2,(25-a)/8:next:a=-8:poke198,0
  53. 336 poke646,peek(827)+8
  54. 337 print"[147][144]                                        ";
  55. 338 print" press spacebar to continue [146]"
  56. 339 poke646,peek(827)+8:sys49584,24,0
  57. 340 a=((a+8)and31)-7:a1=(aand31)-7:a2=((a-8)and31)-7:a3=((a-16)and31)-7
  58. 345 sys49960,a,a-2,79-a*2,49-a*2,0
  59. 350 sys49960,a1,a1-2,79-a1*2,49-a1*2,1
  60. 360 sys49960,a2,a2-2,79-a2*2,49-a2*2,2
  61. 370 sys49960,a3,a3-2,79-a3*2,49-a3*2,3
  62. 380 geta$:ifa$<>" "then340
  63. 390 sys49888:print"[147]":sys49936:sys49288,0,4,10,2
  64. 400 fora=-20to30:sys49152,a+20,20,1:sys49152,a,20,0
  65. 405 sys49152,60-a,30,1:sys49152,80-a,30,0
  66. 410 sys49152,50,a,1:sys49152,50,a-10,0
  67. 415 sys49152,30,50-a,1:sys49152,30,60-a,0:next:sys49960,30,20,20,10,1
  68. 418 fora=1to500:next
  69. 420 fora=30to0step-1:sys49960,a,20,20,10,1
  70. 425 forb=0to50:next:poke822,0:sys50032:next
  71. 430 sys49960,0,20,20,10,1:sys50176:fora=21to79step2:forb=-10to20step5
  72. 440 sys50216:sys49960,a,b,1,10,2:next:sys50176:next
  73. 450 fora=0to18step2:forb=0to18-a:sys50216:sys49960,32,b,16,1,3
  74. 460 sys49960,32,49-b,16,1,3:next:sys50176:next
  75. 470 fora=13to32:forb=13+(aand1)to45-astep2:sys50216:sys49960,-1,-13,b,b,1
  76. 475 sys49960,81-b,-13,b,b,1:sys49960,-1,63-b,b,b,1:sys49960,81-b,63-b,b,b,1
  77. 480 next:sys50176:next
  78. 490 fora=0to4:sys49960,1+a,21+a,18-a*2,8-a*2,2:forb=1to200:next:next:gosub5000
  79. 500 fora=0to24:sys49960,a,a,79-a*2,49-a*2,0:next:a=-1:c=2:sys49288,0,13,10,4
  80. 505 sys50736:sys50720
  81. 510 forb=-24to80
  82. 520 a=a+1:ifa=25thena=0:c=((c+1)and1)+2
  83. 530 sys49960,a,a,79-a*2,49-a*2,c
  84. 540 sys50416,b-1,14,2,2,18,c:sys50416,b,14,2,2,18,1:sys50176:next
  85. 550 sys50216:sys50704
  86. 560 fora=0to24:sys49960,a,a,79-a*2,49-a*2,0:next
  87. 570 sys49288,0,2,3,6
  88. 580 poke646,peek(827)+8:poke198,0
  89. 590 print"[147][144]                                        ";
  90. 600 print" press spacebar to continue [146]"
  91. 610 poke646,peek(827)+8:sys49584,24,0:c=0
  92. 620 c=c+1:ifc=4thenc=1
  93. 625 w=-5+int(rnd(1)*80):x=-5+int(rnd(1)*50):y=int(rnd(1)*3):z=int(rnd(1)*3)
  94. 630 sys50416,w,x,y,z,int(rnd(1)*26)+1,c:geta$:ifa$<>" "then620
  95. 640 sys49888:print"[147]"
  96. 650 fora=0to24:sys49960,a,a,79-a*2,49-a*2,0:next
  97. 660 sys49288,0,7,10,2
  98. 670 fora=80to0step-2:sys50416,a+2,8,0,0,23,0:sys50416,a,8,0,0,23,2:next
  99. 680 fora=80to8step-2:sys50416,a+2,8,0,0,15,0:sys50416,a,8,0,0,15,2:next
  100. 690 fora=80to16step-2:sys50416,a+2,8,0,0,23,0:sys50416,a,8,0,0,23,2:next
  101. 700 fora=80to24step-2:sys50416,a+2,8,0,0,33,0:sys50416,a,8,0,0,33,2:next
  102. 710 fora=50to16step-2:sys50416,0,a+2,0,0,20,0:sys50416,0,a,0,0,20,2:next
  103. 720 fora=50to16step-2:sys50416,8,a+2,0,0,8,0:sys50416,8,a,0,0,8,2:next
  104. 730 fora=50to16step-2:sys50416,16,a+2,0,0,9,0:sys50416,16,a,0,0,9,2:next
  105. 740 fora=50to16step-2:sys50416,24,a+2,0,0,19,0:sys50416,24,a,0,0,19,2:next
  106. 750 fora=26to0step-2:sys50416,a+2,a+26,0,0,9,0:sys50416,a,a+24,0,0,9,2
  107. 760 sys50416,a+10,a+26,0,0,19,0:sys50416,a+8,a+24,0,0,19,2:next
  108. 770 fora=80to0step-8:sys50416,a+8,32,0,0,7,0:sys50416,a,32,1,0,7,2
  109. 780 sys50416,a,32,1,0,7,0:sys50416,a,32,0,0,7,2:next
  110. 790 fora=80to8step-8:sys50416,a+8,32,0,0,18,0:sys50416,a,32,1,0,18,2
  111. 800 sys50416,a,32,1,0,18,0:sys50416,a,32,0,0,18,2:next
  112. 810 fora=80to16step-8:sys50416,a+8,32,0,0,5,0:sys50416,a,32,1,0,5,2
  113. 820 sys50416,a,32,1,0,5,0:sys50416,a,32,0,0,5,2:next
  114. 830 fora=80to24step-8:sys50416,a+8,32,0,0,1,0:sys50416,a,32,1,0,1,2
  115. 840 sys50416,a,32,1,0,1,0:sys50416,a,32,0,0,1,2:next
  116. 850 fora=80to32step-8:sys50416,a+8,32,0,0,20,0:sys50416,a,32,1,0,20,2
  117. 860 sys50416,a,32,1,0,20,0:sys50416,a,32,0,0,20,2:next
  118. 870 fora=80to40step-8:sys50416,a+8,32,0,0,33,0:sys50416,a,32,1,0,33,2
  119. 880 sys50416,a,32,1,0,33,0:sys50416,a,32,0,0,33,2:next
  120. 900 sys50256,0,44,79,5,3
  121. 910 c=2:fora=48to79:c=((c+1)and1)+2
  122. 920 l=int(rnd(1)*36):sys49960,a,43-l,0,l,c:next
  123. 930 poke646,peek(827)+8:poke198,0
  124. 940 print"[147][144]                                        ";
  125. 950 print" press spacebar to continue [146]"
  126. 960 poke646,peek(827)+8:sys49584,24,0:a=-1
  127. 970 b=0:a=a+1:ifa=80thena=0
  128. 980 sys49152,a,b,1:geta$:ifa$=" "then1000
  129. 990 sys49360,a,b+1:ifpeek(823)=0thenb=b+1:ifb<>49thensys49152,a,b-1,0:goto980
  130. 995 goto970
  131. 1000 sys49888
  132. 1010 fora=0to24:sys49960,a,a,79-a*2,49-a*2,0:next
  133. 1015 sys49288,0,13,5,3
  134. 1018 sys49960,0,41,79,0,3:sys49960,0,42,79,0,1:sys49960,0,43,79,0,2
  135. 1020 sys49960,0,44,79,0,3:sys49960,0,45,79,0,1:sys49960,0,46,79,0,2
  136. 1030 sys49960,0,47,79,0,3:sys49960,0,48,79,0,1:sys49960,0,49,79,0,2
  137. 1040 b=1:forc=0to79:a=c+1:sys49960,c,10+sin(a/8)*8,0,31-sin(a/8)*8,b
  138. 1050 b=b+1:ifb=4thenb=1
  139. 1060 next
  140. 1070 b=2:forc=0to79:a=c+20:sys49960,c,20+sin(a/12)*8,0,21-sin(a/12)*8,b
  141. 1075 sys49152,c,20+sin(a/12)*8,0
  142. 1080 b=b+1:ifb=4thenb=1
  143. 1090 next
  144. 1100 b=3:forc=0to79:a=c+40:sys49960,c,30+sin(a/10)*7,0,11-sin(a/10)*7,b
  145. 1115 sys49152,c,30+sin(a/10)*7,0
  146. 1120 b=b+1:ifb=4thenb=1
  147. 1130 next
  148. 1140 gosub5000
  149. 1150 fora=0to24:sys49960,a,a,79-a*2,49-a*2,0:next:sys49288,0,7,2,5
  150. 1160 poke646,peek(827)+8:poke198,0
  151. 1170 print"[147][144]                                        ";
  152. 1180 print" press spacebar to continue [146]"
  153. 1190 poke646,peek(827)+8:sys49584,24,0:a=0
  154. 1200 a=a+1:sys49960,40-a,a,1+a*2,49-a*2,(aand1)+2:geta$:ifa$=" "then1230
  155. 1205 ifa<>24then1200
  156. 1210 a=a-1:sys49960,40-a,a,1+a*2,49-a*2,((a+1)and1)+1:geta$:ifa$=" "then1230
  157. 1215 ifa<>0then1210
  158. 1220 goto1200
  159. 1230 sys49888:print"[147]"
  160. 1235 fora=1to400:x=16+int(rnd(1)*50):y=int(rnd(1)*49):z=int(rnd(1)*3)+1
  161. 1240 sys50256,x,y,z,z,0:next
  162. 1250 fora=0to24:sys49960,a,a,79-a*2,49-a*2,0:next
  163. 1260 sys49288,0,2,10,4:poke646,peek(827)+8:poke198,0
  164. 1270 print"[147][144]                                        ";
  165. 1280 print" press spacebar to continue [146]"
  166. 1290 poke646,peek(827)+8:sys49584,24,0:c=0
  167. 1300 x=-5+int(rnd(1)*80):y=-5+int(rnd(1)*50):c=c+1:ifc=4thenc=1
  168. 1310 sys49960,x,y,2+int(rnd(1)*8),2+int(rnd(1)*8),c:geta$:ifa$<>" "then1300
  169. 1320 sys49888:print"[147]":fora=0to24:sys49960,a,a,79-a*2,49-a*2,0:next
  170. 1330 dimz(20):fora=0to20:z(a)=int(rnd(1)*40)*2:next:sys50736:sys50720
  171. 1340 sys49288,0,1,10,2:poke646,peek(827)+8:poke198,0
  172. 1350 print"[147][144]                                        ";
  173. 1360 print" press spacebar to continue [146]"
  174. 1370 poke646,peek(827)+8:sys49584,24,0:v=50:s=-1
  175. 1380 sys49936
  176. 1385 fora=0to10:z(a)=z(a)+2:ifz(a)=80thenz(a)=0
  177. 1388 sys49152,z(a),2+a*4,1:next
  178. 1390 fora=0to9:b=a+11:z(b)=z(b)+1:ifz(b)=80thenz(b)=0
  179. 1395 sys49152,z(b),4+a*4,1:next
  180. 1400 sys49152,30,v+2,2:sys49960,31,v+1,0,2,2:sys49960,32,v,0,4,2
  181. 1410 sys50256,33,v,15,4,3:sys49960,33,v+3,5,0,2
  182. 1420 fora=1to3:sys49960,53,v+a,8,0,1+int(rnd(1)*2):next
  183. 1430 fora=1to3:sys49960,62,v+a,8,0,1+int(rnd(1)*3):next
  184. 1440 fora=1to3:sys49960,71,v+a,8,0,2+int(rnd(1)*2):next
  185. 1450 sys50256,49,v+1,3,2,1
  186. 1500 sys50176:v=v+s:ifv=15ands=-1thens=-s
  187. 1510 ifv=30ands=1thens=-s
  188. 1520 geta$:ifa$<>" "then1380
  189. 1525 sys50216:sys50704
  190. 1530 sys49888:print"[147]":fora=0to24:sys49960,a,a,79-a*2,49-a*2,1
  191. 1540 sys49960,a,a,79-a*2,49-a*2,0:next
  192. 4995 print"[158][147]":sys49824:poke198,0:end
  193. 5000 poke646,peek(827)+8
  194. 5005 print"[147][144]                                        ";
  195. 5010 print" press spacebar to continue [146]"
  196. 5012 poke646,peek(827)+8
  197. 5015 sys49584,24,0:poke198,0
  198. 5020 geta$:ifa$<>" "then5020
  199. 5030 sys49888:print"[147]":poke198,0:return
  200.